home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 65 / Tiger_Disk_065_19xx_Tiger-Crew-Disk_de_Side_B.d64 / change startadr. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  45 lines
  1. 1 q=53265
  2. 100 pd$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":print"[147]  change program start-address 1473"
  3. 101 cr$=chr$(13):c0$=chr$(0):c1$=chr$(1)
  4. 102 input" programmname ";f1$
  5. 103 fl$=left$(f1$+pd$,16)
  6. 104 print" ich suche nach "fl$
  7. 105 pokeq,11:open1,8,15:open9,8,9,"#":gosub132:s%=1:ok%=0
  8. 106 print#1,"b-r"9;0;18;s%:gosub132
  9. 107 print#1,"b-p"9;1:get#9,ns$:ifns$=""thenns$=c0$
  10. 108 print#1,"u1"9;0;18;s%:gosub132
  11. 109 fori=2to226step32:print#1,"b-p"9;i:get#9,ty$:ifty$<>chr$(130)goto115
  12. 110 print#1,"b-p"9;i+19:print#9,cr$;
  13. 111 print#1,"b-p"9;i+3:input#9,nm$:ifnm$<>fl$goto115
  14. 112 print#1,"b-p"9;i+1:get#9,lt$:iflt$=""thenlt$=c0$
  15. 113 print#1,"b-p"9;i+2:get#9,ls$:ifls$=""thenls$=c0$
  16. 114 ok%=1:i=226
  17. 115 nexti:ifok%then118
  18. 116 s%=asc(ns$):if0<s%ands%<20goto106
  19. 117 pokeq,27:print" "f1$" nicht gefunden!":end
  20. 118 t%=asc(lt$):s%=asc(ls$):print#1,"u1"9;0;t%;s%:gosub132
  21. 119 print#1,"b-p"9;2:get#9,lo$:iflo$=""thenlo$=c0$
  22. 120 print#1,"b-p"9;3:get#9,hi$:ifhi$=""thenhi$=c0$
  23. 121 lo%=asc(lo$):hi%=asc(hi$):ad=lo%+256*hi%
  24. 122 pokeq,27:print" momentane startadr. :"ad;:x=ad:gosub50020:print"$"x$
  25. 123 print" so lassen (j[146]-n[146]) ?
  26. 124 [161]g$:[139]g$[179][177]"j"[175]g$[179][177]"n"[137]124
  27. 125 [139]g$[178]"j"[167]131
  28. 126 [133]" neue adr. (dez. oder $xxxx ";ad$:[141]51000
  29. 127 [139][198](ad$)[178]160[167][153]"ononon":[137]126
  30. 128 ad[178][197](ad$):hi%[178]ad[173]256:lo%[178]ad[171]256[172]hi%
  31. 129 [151]q,11:[152]1,"b-p"9;2:[152]9,[199](lo%)[199](hi%);
  32. 130 [152]1,"u2"9;0;t%;s%:[141]132:[137]118
  33. 131 [151]q,11:[160]9:[160]1:[151]q,27:[153]" mit "f1$" fertig !":[128]
  34. 132 [132]1,en$,em$,et$,es$:[139]en$[178]"00"[167][142]
  35. 133 [160]9:[160]1:[151]q,27:[153]" i/o error "en$" "em$" "et$" "es$:[128]
  36. 50008 [143] hex x$ nach dez x
  37. 50010 x[178]0:[129]i[178]1[164][195](x$):x0[178][198]([202](x$,i,1)):x[178]16[172]x[170]x0[171]48[170](x0[177]64)[172]7:[130]:
  38. 50012 [142]
  39. 50017 :
  40. 50018 [143] dez x nach hex x$
  41. 50020 x$[178]"":[129]i[178]1[164]4:x0[178]x[173]16:x[178]x[171][181](x0)[172]16:x$[178][199](48[170]x[171](x[177]9)[172]7)[170]x$:x[178][181](x0)
  42. 50022 [130]:[142]
  43. 51000 [139] [200](ad$,1)[179][177]"$"[167][142]
  44. 51010 x$[178][201](ad$,4):[141]50010:ad$[178][196](x):[142]
  45.